home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / ng_clone.arc / MAKE_SCR.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-28  |  2KB  |  48 lines
  1. program makescr;                                                            {Make screen template for NG_CLONE}
  2. uses dos,crt;
  3. type    textel=    record                                                    {See NG_CLONE.PAS}
  4.                                 cha:byte;
  5.                                 att:byte;
  6.                             end;
  7.             fiftylinebuf=    array[1..50,1..80] of textel;
  8.             halfbuf=    array[1..80] of textel;
  9.             twelwebuf=    array[1..12,1..80] of textel;
  10.  
  11. var    smallscreen:twelwebuf absolute $B800:$0000; 
  12.         largescreen:halfbuf absolute $B800:$0000; 
  13.         f:file; 
  14.         i:word; 
  15.  
  16. procedure frame(w,d:byte); 
  17. begin 
  18.     write(' ');for i:=2 to w-1 do write(' ');write(' ');
  19.     for i:=2 to d-1 do 
  20.     begin 
  21.         gotoxy(1,i);write(' ');gotoxy(w,i);write(' '); 
  22.     end; 
  23.     write(' ');for i:=2 to w-1 do write(' ');write(' '); 
  24. end; 
  25.  
  26. begin 
  27.     assign(f,'ng_clone.scr');                                        {You may add a drive and/or directory, if desired}
  28.     rewrite(f,1);
  29.     textmode(259);
  30.     window(1,1,80,12);textattr:=$70;clrscr;
  31.     window(1,1,80,13);frame(80,12);
  32.     gotoxy(1,3);
  33.     write('                                                                                ');
  34.     textattr:=$07;
  35.     gotoxy(80,4);write(#24);
  36.     for i:=5 to 10 do
  37.     begin
  38.         gotoxy(80,i);write(#177);
  39.     end;
  40.     gotoxy(80,11);write(#25);
  41.     gotoxy(1,13);
  42.     blockwrite(f,smallscreen,sizeof(smallscreen));
  43.     for i:=1 to 80 do smallscreen[1,i]:=smallscreen[2,i];
  44.     textattr:=$70;gotoxy(3,1);write('See also:');
  45.     blockwrite(f,largescreen,sizeof(largescreen));
  46.     close(f);
  47. end.
  48.